clear
set more off

version 13

use "study1.dta", clear

reg crimechange trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 
lincom questionstats-correction 
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit crimechange trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MCb

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 
lincom questionstats-correction 
lincom fbict-correction
lincom fbict-questionstats 

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

reg crimechange trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 
lincom questionstats-correction 
lincom fbict-correction 
lincom fbict-questionstats 

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit crimechange trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turkb

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 
lincom questionstats-correction
lincom fbict-correction 
lincom fbict-questionstats 

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

/*Table 1*/
estout MC Turk, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

gen binary_crime_increase=(crimechange==4 | crimechange==5) if crimechange!=.
gen binary_trump_fav=(trump_fav==4 | trump_fav==5) 

tab binary_c correction if (clintonsupport==1 | trumpsupport==1) & turk==0 & (correction==1 | trumpcrime==1), col
tab binary_t correction if (clintonsupport==1 | trumpsupport==1) & turk==0 & (correction==1 | trumpcrime==1), col

tab binary_c correction if (trumpsupport==1) & turk==0 & (correction==1 | trumpcrime==1), col
tab binary_t correction if (trumpsupport==1) & turk==0 & (correction==1 | trumpcrime==1), col

tab binary_c correction if (clintonsupport==1) & turk==0 & (correction==1 | trumpcrime==1), col
tab binary_t correction if (clintonsupport==1) & turk==0 & (correction==1 | trumpcrime==1), col

reg crimechange trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==0, robust
est store A

/*MEs for clinton supporters versus clinton crime*/
lincom (1.correction+1.correction#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.questionstats+1.questionstats#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.fbict+1.fbict#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)

/*MEs for Trump supporters versus Trump crime*/
lincom (1.correction+1.correction#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.questionstats+1.questionstats#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.fbict+1.fbict#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)

reg crimechange trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==1, robust
est store B

/*MEs for clinton supporters versus clinton crime*/
lincom (1.correction+1.correction#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.questionstats+1.questionstats#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.fbict+1.fbict#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)

/*MEs for Trump supporters versus Trump crime*/
lincom (1.correction+1.correction#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.questionstats+1.questionstats#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.fbict+1.fbict#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)

/*Table C5*/
estout A B, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

/*Table C4*/
estout MCb Turkb, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 



reg interpretation trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MCint

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit interpretation trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MCintb

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

reg interpretation trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turkint

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit interpretation trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turkintb

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)


reg stataccuracy trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC3

/*Auxiliary estimates for Table 2, column 5*/

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) /*neg p<.01)*/
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit stataccuracy trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC3b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) /*neg p<.01)*/
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

reg stataccuracy trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk3

/*Auxiliary estimates for Table 2, column 6*/

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) /*neg ns (p<.15)*/
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit stataccuracy trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk3b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) /*neg ns (p<.15)*/
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)


reg articleaccuracy trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC1

/*Auxiliary estimates for Table 2, column 1*/

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit articleaccuracy trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC1b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

reg articleaccuracy trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk1

/*Auxiliary estimates for Table 2, column 2*/

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit articleaccuracy trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk1b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)




/*ALL: REFERENCE CATEGORY IS CONTROL*/
reg articlefairness trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC2

/*Auxiliary estimates for Table 2, column 3*/

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit articlefairness trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC2b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

reg articlefairness trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk2

/*Auxiliary estimates for Table 2, column 4*/

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

oprobit articlefairness trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk2b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*differences for Clinton supporters*/
lincom correction-trumpcrime 
lincom questionstats-trumpcrime 
lincom fbict-trumpcrime 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

/*Table C6*/
estout MC1 Turk1 MC2 Turk2 MC3 Turk3, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 


reg articleacc trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==0, robust
est store A

/*MEs for clinton supporters versus clinton crime*/
lincom (1.correction+1.correction#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.questionstats+1.questionstats#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.fbict+1.fbict#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)

/*MEs for Trump supporters versus Trump crime*/
lincom (1.correction+1.correction#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.questionstats+1.questionstats#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.fbict+1.fbict#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)

reg articleacc trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==1, robust
est store B

/*MEs for clinton supporters versus clinton crime*/
lincom (1.correction+1.correction#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.questionstats+1.questionstats#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.fbict+1.fbict#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)

/*MEs for Trump supporters versus Trump crime*/
lincom (1.correction+1.correction#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.questionstats+1.questionstats#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.fbict+1.fbict#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)


reg articlefairness trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==0, robust
est store C

/*MEs for clinton supporters versus clinton crime*/
lincom (1.correction+1.correction#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.questionstats+1.questionstats#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.fbict+1.fbict#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)

/*MEs for Trump supporters versus Trump crime*/
lincom (1.correction+1.correction#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.questionstats+1.questionstats#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.fbict+1.fbict#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)

reg articlefairness trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==1, robust
est store D

/*MEs for clinton supporters versus clinton crime*/
lincom (1.correction+1.correction#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.questionstats+1.questionstats#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.fbict+1.fbict#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)

/*MEs for Trump supporters versus Trump crime*/
lincom (1.correction+1.correction#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.questionstats+1.questionstats#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.fbict+1.fbict#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)

reg statacc trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==0, robust
est store E

/*MEs for clinton supporters versus clinton crime*/
lincom (1.correction+1.correction#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.questionstats+1.questionstats#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.fbict+1.fbict#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)

/*MEs for Trump supporters versus Trump crime*/
lincom (1.correction+1.correction#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.questionstats+1.questionstats#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.fbict+1.fbict#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)

reg statacc trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==1, robust
est store F

/*MEs for clinton supporters versus clinton crime*/
lincom (1.correction+1.correction#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.questionstats+1.questionstats#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)
lincom (1.fbict+1.fbict#1.clintonsupport)-(1.trumpcrime+1.trumpcrime#1.clintonsupport)

/*MEs for Trump supporters versus Trump crime*/
lincom (1.correction+1.correction#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.questionstats+1.questionstats#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)
lincom (1.fbict+1.fbict#1.trumpsupport)-(1.trumpcrime+1.trumpcrime#1.trumpsupport)

/*Table C8*/
estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

/*Table C7*/
estout MC1b Turk1b MC2b Turk2b MC3b Turk3b, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 


gen articlebiasflip=-articlebias

reg articlebiasflip trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC4

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

oprobit articlebiasflip trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC4b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

reg articlebiasflip trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk4

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

oprobit articlebiasflip trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk4b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport
lincom fbict+fbictXtrumpsupport

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport)

/*Table C9*/
estout MC4 Turk4, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

/*Table C10*/
estout MC4b Turk4b, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

/*Table C11*/
estout MCint Turkint, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

/*Table C12*/
estout MCintb Turkintb, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 



reg postcrimeserious trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC0

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit postcrimeserious trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC0b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

reg postcrimeserious trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk0

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport /*pos p<.01*/
lincom questionstats+questionstatsXtrumpsupport /*pos p<.01*/
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit postcrimeserious trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk0b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport /*pos p<.01*/
lincom questionstats+questionstatsXtrumpsupport /*pos p<.01*/
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 



reg courtsharsh trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC1

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit courtsharsh trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC1b

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

reg courtsharsh trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk1

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport /*p<.05*/
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)  
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit courtsharsh trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk1b

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport /*p<.05*/
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)  
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 



reg lawspend trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC2

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit lawspend trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC2b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

reg lawspend trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk2

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit lawspend trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk2b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

/*Table C15*/
estout MC0 Turk0 MC1 Turk1 MC2 Turk2, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

/*Table C16*/
estout MC0b Turk0b MC1b Turk1b MC2b Turk2b, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(N, fmt(%9.0f) labels("N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

reg trump_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC1

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit trump_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC1b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

reg trump_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk1

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit trump_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk1b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime
lincom questionstats-correction
lincom fbict-correction
lincom fbict-questionstats

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

/*Table 3*/
estout MC1 Turk1, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

/*Table C17*/
estout MC1b Turk1b, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

reg trump_fav trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==0, robust
est store A

reg trump_fav trumpsupport##clintonsupport##trumpcrime trumpsupport##clintonsupport##correction trumpsupport##clintonsupport##questionstats trumpsupport##clintonsupport##fbict if turk==1, robust
est store B

/*Table C18*/
estout A B, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

reg obama_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC2

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit obama_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC2b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

reg obama_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk2

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit obama_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk2b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 


reg clinton_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC3

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit clinton_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust
est store MC3b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 


reg clinton_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk3

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

oprobit clinton_fav trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==1, robust
est store Turk3b

/*MEs for Trump supporters versus placebo*/
lincom trumpcrime+trumpcrimeXtrumpsupport 
lincom correction+correctionXtrumpsupport 
lincom questionstats+questionstatsXtrumpsupport 
lincom fbict+fbictXtrumpsupport 

/*MEs for Trump supporters versus Trump crime*/
lincom (correction+correctionXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)
lincom (questionstats+questionstatsXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(trumpcrime+trumpcrimeXtrumpsupport)

/*MEs for Clinton supporters*/
lincom correction-trumpcrime
lincom questionstats-trumpcrime
lincom fbict-trumpcrime

/*other Trump supporter MEs*/
lincom (questionstats+questionstatsXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(correction+correctionXtrumpsupport) 
lincom (fbict+fbictXtrumpsupport)-(questionstats+questionstatsXtrumpsupport) 

/*Table C19*/
estout MC2 Turk2 MC3 Turk3, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

/*Table C20*/
estout MC2b Turk2b MC3b Turk3b, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(N, fmt(%9.0f) labels("N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

*test for Turk pooling
gen trumpsupportXturk=trumpsupport*turk
gen trumpcrimeXturk=trumpcrime*turk
gen trumpcrimeXtrumpsupportXturk=trumpcrime*trumpsupport*turk
gen correctionXturk=correction*turk
gen correctionXtrumpsupportXturk=correction*trumpsupport*turk
gen questionstatsXturk=questionstats*turk
gen questionstatsXtrumpsupportXturk=questionstats*trumpsupport*turk
gen fbictXturk=fbict*turk
gen fbictXtrumpsupportXturk=fbict*trumpsupport*turk

reg crimechange trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool1

reg articleacc trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool2

reg articlefair trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool3

reg statacc trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool4

reg articlebias trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool5

reg interpretation trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool6

*Table C13
estout pool*, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

oprobit crimechange trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool1

oprobit articleacc trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool2

oprobit articlefair trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool3

oprobit statacc trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool4

oprobit articlebias trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool5

oprobit interpretation trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk if (clintonsupport==1 | trumpsupport==1), robust
est store pool6

*Table C14
estout pool*, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(N, fmt(%9.2f %9.0f) labels("N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

****attention/comprehension****

gen attentioncontrol=.
replace attentioncontrol=(q3018==1) + (q3020==2) if turk==0 & control==1
replace attentioncontrol=(q42==1) + (q44==2) if turk==1 & control==1

gen attentiontreatment=.
replace attentiontreatment=(q3017==2) + (q3019==1) if turk==0 & control==0
replace attentiontreatment=(q41==2) + (q43==1) if turk==1 & control==0

bysort turk: su attentioncontrol
bysort turk: su attentiontreatment

****sample descriptives and balance test****

/*balance test*/

gen male=.
replace male=abs(1-female) if turk==1
replace male=(demgender==1) if turk==0

gen white=.
replace white=abs(1-nonwhite) if turk==1
replace white=(demrace==4) if turk==0

gen educat4=.
replace educat4=1 if demedu<4 | education<4 /*HS or less*/
replace educat4=2 if (demedu>3 & demedu<7) | (education>3 & education<7) /*some college or associate degree*/
replace educat4=3 if demedu==7 | education==7 /*bachelor's*/
replace educat4=4 if demedu==8 | demedu==9 | education==8 | education==9 /*grad*/

gen agecat4=.
replace agecat=1 if age==2 | age==3 | (demagefull>=2 & demagefull<=18)
replace agecat=2 if age==4  | (demagefull>=19 & demagefull<=28)
replace agecat=3 if age==5 | age==6 | (demagefull>=29 & demagefull<=48)
replace agecat=4 if (age>6 & age!=.) |  (demagefull>=49 & demagefull!=.)

gen party3=.
replace party3=1 if partyid==2 | dempidnoln==2
replace party3=2 if partyid==1 | dempidnoln==1
replace party3=3 if partyid==-99 | partyid==3 | partyid==4 | dempidnoln==3 | dempidnoln==4

su agecat4 male educat4 party3 white if turk==0
su agecat4 male educat4 party3 white if turk==1

/*Table C1*/
putexcel set balancetable, replace

putexcel B1=("Control") C1=("Uncorrected") D1=("Correction") E1=("Correction denial") F1=("Denial/source derogation") G1=("Total")

putexcel A2=("Age") A3=("18-34") A4=("35-44") A5=("45-64") A6=("65+")

gen p=1
svyset [pw=p]

svy: tab agecat4 if control==1 & turk==0
matrix AgeControl = e(b)'
putexcel B3=matrix(AgeControl)

svy: tab agecat4 if trumpcrime==1 & turk==0
matrix AgeLow = e(b)'
putexcel C3=matrix(AgeLow)

svy: tab agecat4 if correction==1 & turk==0
matrix AgeHigh = e(b)'
putexcel D3=matrix(AgeHigh)

svy: tab agecat4 if questionstats==1 & turk==0
matrix AgeHigh = e(b)'
putexcel E3=matrix(AgeHigh)

svy: tab agecat4 if fbict==1 & turk==0
matrix AgeHigh = e(b)'
putexcel F3=matrix(AgeHigh)

svy: tab agecat4 if turk==0
matrix AgeTotal = e(b)'
putexcel G3=matrix(AgeTotal)

putexcel A8=("Gender") A9=("Female") A10=("Male")

svy: tab male if control==1 & turk==0
matrix GenderControl = e(b)'
putexcel B9=matrix(GenderControl)

svy: tab male if trumpcrime==1 & turk==0
matrix GenderLow = e(b)'
putexcel C9=matrix(GenderLow)

svy: tab male if correction==1 & turk==0
matrix GenderHigh = e(b)'
putexcel D9=matrix(GenderHigh)

svy: tab male if questionstats==1 & turk==0
matrix GenderLow = e(b)'
putexcel E9=matrix(GenderLow)

svy: tab male if fbict==1 & turk==0
matrix GenderHigh = e(b)'
putexcel F9=matrix(GenderHigh)

svy: tab male if turk==0
matrix GenderTotal = e(b)'
putexcel G9=matrix(GenderTotal)

putexcel A12=("Education") A13=("High school or less") A14=("Some college/associate degree") A15=("Bachelor's degree") A16=("Graduate degree")

svy: tab educat4 if control==1 & turk==0
matrix EducControl = e(b)'
putexcel B13=matrix(EducControl)

svy: tab educat4 if trumpcrime==1 & turk==0
matrix EducLow = e(b)'
putexcel C13=matrix(EducLow)

svy: tab educat4 if correction==1 & turk==0
matrix EducHigh = e(b)'
putexcel D13=matrix(EducHigh)

svy: tab educat4 if questionstats==1 & turk==0
matrix EducLow = e(b)'
putexcel E13=matrix(EducLow)

svy: tab educat4 if fbict==1 & turk==0
matrix EducHigh = e(b)'
putexcel F13=matrix(EducHigh)

svy: tab educat4 if turk==0
matrix EducTotal = e(b)'
putexcel G13=matrix(EducTotal)

putexcel A18=("Race") A19=("Nonwhite") A20=("White")

svy: tab white if control==1 & turk==0
matrix RegionControl = e(b)'
putexcel B19=matrix(RegionControl)

svy: tab white if trumpcrime==1 & turk==0
matrix RegionLow = e(b)'
putexcel C19=matrix(RegionLow)

svy: tab white if correction==1 & turk==0
matrix RegionHigh = e(b)'
putexcel D19=matrix(RegionHigh)

svy: tab white if questionstats==1 & turk==0
matrix RegionLow = e(b)'
putexcel E19=matrix(RegionLow)

svy: tab white if fbict==1 & turk==0
matrix RegionHigh = e(b)'
putexcel F19=matrix(RegionHigh)

svy: tab white if turk==0
matrix RegionTotal = e(b)'
putexcel G19=matrix(RegionTotal)

putexcel A22=("Party") A23=("Democrat") A24=("Republican") A25=("Independent/something else")

svy: tab party3 if control==1 & turk==0
matrix PartyControl = e(b)'
putexcel B23=matrix(PartyControl)

svy: tab party3 if trumpcrime==1 & turk==0
matrix PartyLow = e(b)'
putexcel C23=matrix(PartyLow)

svy: tab party3 if correction==1 & turk==0
matrix PartyHigh = e(b)'
putexcel D23=matrix(PartyHigh)

svy: tab party3 if fbict==1 & turk==0
matrix PartyLow = e(b)'
putexcel E23=matrix(PartyLow)

svy: tab party3 if questionstats==1 & turk==0
matrix PartyHigh = e(b)'
putexcel F23=matrix(PartyHigh)

svy: tab party3 if turk==0
matrix PartyTotal = e(b)'
putexcel G23=matrix(PartyTotal)

/*Table C2*/
putexcel set balancetable2, replace

putexcel B1=("Control") C1=("Uncorrected") D1=("Correction") E1=("Correction denial") F1=("Denial/source derogation") G1=("Total")

putexcel A2=("Age") A3=("18-34") A4=("35-44") A5=("45-64") A6=("65+")

svy: tab agecat4 if control==1 & turk==1
matrix AgeControl = e(b)'
putexcel B3=matrix(AgeControl)

svy: tab agecat4 if trumpcrime==1 & turk==1
matrix AgeLow = e(b)'
putexcel C3=matrix(AgeLow)

svy: tab agecat4 if correction==1 & turk==1
matrix AgeHigh = e(b)'
putexcel D3=matrix(AgeHigh)

svy: tab agecat4 if questionstats==1 & turk==1
matrix AgeHigh = e(b)'
putexcel E3=matrix(AgeHigh)

svy: tab agecat4 if fbict==1 & turk==1
matrix AgeHigh = e(b)'
putexcel F3=matrix(AgeHigh)

svy: tab agecat4 if turk==1
matrix AgeTotal = e(b)'
putexcel G3=matrix(AgeTotal)

putexcel A8=("Gender") A9=("Female") A10=("Male")

svy: tab male if control==1 & turk==1
matrix GenderControl = e(b)'
putexcel B9=matrix(GenderControl)

svy: tab male if trumpcrime==1 & turk==1
matrix GenderLow = e(b)'
putexcel C9=matrix(GenderLow)

svy: tab male if correction==1 & turk==1
matrix GenderHigh = e(b)'
putexcel D9=matrix(GenderHigh)

svy: tab male if questionstats==1 & turk==1
matrix GenderLow = e(b)'
putexcel E9=matrix(GenderLow)

svy: tab male if fbict==1 & turk==1
matrix GenderHigh = e(b)'
putexcel F9=matrix(GenderHigh)

svy: tab male if turk==1
matrix GenderTotal = e(b)'
putexcel G9=matrix(GenderTotal)

putexcel A12=("Education") A13=("High school or less") A14=("Some college/associate degree") A15=("Bachelor's degree") A16=("Graduate degree")

svy: tab educat4 if control==1 & turk==1
matrix EducControl = e(b)'
putexcel B13=matrix(EducControl)

svy: tab educat4 if trumpcrime==1 & turk==1
matrix EducLow = e(b)'
putexcel C13=matrix(EducLow)

svy: tab educat4 if correction==1 & turk==1
matrix EducHigh = e(b)'
putexcel D13=matrix(EducHigh)

svy: tab educat4 if questionstats==1 & turk==1
matrix EducLow = e(b)'
putexcel E13=matrix(EducLow)

svy: tab educat4 if fbict==1 & turk==1
matrix EducHigh = e(b)'
putexcel F13=matrix(EducHigh)

svy: tab educat4 if turk==1
matrix EducTotal = e(b)'
putexcel G13=matrix(EducTotal)

putexcel A18=("Race") A19=("Nonwhite") A20=("White")

svy: tab white if control==1 & turk==1
matrix RegionControl = e(b)'
putexcel B19=matrix(RegionControl)

svy: tab white if trumpcrime==1 & turk==1
matrix RegionLow = e(b)'
putexcel C19=matrix(RegionLow)

svy: tab white if correction==1 & turk==1
matrix RegionHigh = e(b)'
putexcel D19=matrix(RegionHigh)

svy: tab white if questionstats==1 & turk==1
matrix RegionLow = e(b)'
putexcel E19=matrix(RegionLow)

svy: tab white if fbict==1 & turk==1
matrix RegionHigh = e(b)'
putexcel F19=matrix(RegionHigh)

svy: tab white if turk==1
matrix RegionTotal = e(b)'
putexcel G19=matrix(RegionTotal)

putexcel A22=("Party") A23=("Democrat") A24=("Republican") A25=("Independent/something else")

svy: tab party3 if control==1 & turk==1
matrix PartyControl = e(b)'
putexcel B23=matrix(PartyControl)

svy: tab party3 if trumpcrime==1 & turk==1
matrix PartyLow = e(b)'
putexcel C23=matrix(PartyLow)

svy: tab party3 if correction==1 & turk==1
matrix PartyHigh = e(b)'
putexcel D23=matrix(PartyHigh)

svy: tab party3 if fbict==1 & turk==1
matrix PartyLow = e(b)'
putexcel E23=matrix(PartyLow)

svy: tab party3 if questionstats==1 & turk==1
matrix PartyHigh = e(b)'
putexcel F23=matrix(PartyHigh)

svy: tab party3 if turk==1
matrix PartyTotal = e(b)'
putexcel G23=matrix(PartyTotal)

gen cond=.
replace cond=1 if control==1
replace cond=2 if trumpcrime==1
replace cond=3 if correction==1
replace cond=4 if questionstats==1
replace cond=5 if fbict==1

tab agecat4 cond if turk==0, chi
tab male cond if turk==0, chi
tab educat4 cond if turk==0, chi
tab white cond if turk==0, chi
tab party3 cond if turk==0, chi

tab agecat4 cond if turk==1, chi
tab male cond if turk==1, chi
tab educat4 cond if turk==1, chi
tab white cond if turk==1, chi
tab party3 cond if turk==1, chi

drop cond


*revisit test for pooling with demographic controls

gen age1824=0
replace age1824=1 if (demagefull>1 & demagefull<9) | (age==2)

gen age2534=0
replace age2534=1 if (demagefull>8 & demagefull<19) | (age==3)

gen age3544=0
replace age3544=1 if (demagefull>18 & demagefull<29) | (age==4)

gen age4554=0
replace age4554=1 if (demagefull>28 & demagefull<39) | (age==5)

gen age5564=0
replace age5564=1 if (demagefull>38 & demagefull<49) | (age==6)

gen age65plus=0
replace age65plus=1 if (demagefull>48 & demagefull<85) | (age>=7 & age<10)

replace nonwhite=0 if turk==0 & demrace==4
replace nonwhite=1 if turk==0 & demrace!=4 & demrace!=.

replace female=0 if turk==0 & demgender==1
replace female=1 if turk==0 & demgender==2 

*figures

reg crimechange trumpsupport trumpcrime trumpcrimeXtrumpsupport correction correctionXtrumpsupport questionstats questionstatsXtrumpsupport fbict fbictXtrumpsupport if (clintonsupport==1 | trumpsupport==1) & turk==0, robust



*no pol know

reg crimechange trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk female age2534 age3544 age4554 age5564 age65plus nonwhite if (clintonsupport==1 | trumpsupport==1), robust
est store pool1

reg articleacc trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk female age2534 age3544 age4554 age5564 age65plus nonwhite if (clintonsupport==1 | trumpsupport==1), robust
est store pool2

reg articlefair trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk female age2534 age3544 age4554 age5564 age65plus nonwhite if (clintonsupport==1 | trumpsupport==1), robust
est store pool3

reg statacc trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk female age2534 age3544 age4554 age5564 age65plus nonwhite if (clintonsupport==1 | trumpsupport==1), robust
est store pool4

reg articlebias trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk female age2534 age3544 age4554 age5564 age65plus nonwhite if (clintonsupport==1 | trumpsupport==1), robust
est store pool5

reg interpretation trumpsupport turk trumpsupportXturk trumpcrime trumpcrimeXturk trumpcrimeXtrumpsupport trumpcrimeXtrumpsupportXturk correction correctionXturk correctionXtrumpsupport correctionXtrumpsupportXturk questionstats questionstatsXturk questionstatsXtrumpsupport questionstatsXtrumpsupportXturk fbict fbictXturk fbictXtrumpsupport fbictXtrumpsupportXturk female age2534 age3544 age4554 age5564 age65plus nonwhite if (clintonsupport==1 | trumpsupport==1), robust
est store pool6

estout pool*, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.10 ** 0.05 *** 0.01) 

save "pooled-data-for-R.dta", replace
